home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacWorld: Complete Mac Interactive
/
Macworld Complete Mac Interactive CD)(1994).iso
/
Software
/
Deneba Software
/
Canvas™ 3.5.2 Demo
/
Canvas™ 3.5.2 Demo.rsrc
/
PSst_6100
< prev
next >
Wrap
Text File
|
1994-06-20
|
843b
|
15 lines
%%DSIDICT:_cv
userdict /_cv known not currentdict /bu known and{bu}{save}ifelse
userdict /_cv known not dup {userdict /_cv 20 dict put}if
_cv begin
/bdf{bind def}bind def
/isDeviceColor {/currentcolorspace where{pop currentcolorspace 0 get dup /DeviceGray eq exch dup /DeviceRGB eq exch /DeviceCMYK eq or or}{T}ifelse}bdf
/setcmykcolor where{/setcmykcolor get /cvcmyk exch def}{/cvcmyk{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll}repeat setrgbcolor pop}bdf }ifelse
/stg{isDeviceColor {cf ca /cs load setscreen setgray}{pop}ifelse}bdf
/strgb{isDeviceColor {cf ca /cs load setscreen setrgbcolor}{pop pop pop}ifelse}bdf
/stcmyk{isDeviceColor {cf ca /cs load setscreen cvcmyk}{pop pop pop pop}ifelse}bdf
/min1{dup 0 eq{pop 1}if}bdf
currentscreen/cs exch def/ca exch def/cf exch def
end
currentdict /bn known and{bn}{restore}ifelse